PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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PASSWRITE_REALF Write an H_floating in F format 16-Sep-1984 AX=-11 Bliss-32 V4.0-74 Pa 1 
° 18-Sep-1984 95:83:85 esa ObdetpheuMtarn ases1 * 


-v 


; 1 0) MODULE PASSWRITE REAL (% ApTLE "Write an H_ floating in F form : 
: § Ons To DENT *1-002' ' File: PASWRIRFH, 332 Edit: S$8L1002 ; 
; a0 | ee 
: § sie) ! nanan area ye niece RE weg ee ate : 
3 8 B08 1 !* (COPYRIGHT (c) 1978, 1980, 1982, 1984 8 8 3 
3 7 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * ; 
; Baty : ; ALL RIGHTS RESERVED . : 
3 ! * 3 
; \§ borg 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * F 
.— 2 15 1 !* ONLY IN aceon DANCE WITH THE TERMS OF renee LICENSE AND WITH THE * 3 
ze 0014 1 !* INCLUSION OF THE ABOVE Spy NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
3 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * F 
; 1g $18 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 
: i Oi8 : ” TRANSFERRED. * : 
3 '® * 3 
; 2 (619 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
: $1 eS 1 ' ed CORPORATION. * 3 
3 '® ® P4 
3 38 00 g 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
5 4 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
; 0025 1 !* * 3 
; @€ 0026 1 !* « 3 
: e7 OPA MMS SSCS TICS TS CST Tee Tee e Tre rere rect rc icici iii t iti t iti titi tit iti titiiiiiy g 
; 628 0028 1! 3 
3 $3 it 94 1 F 
5 0 0030 1 !+4+ 3 
3 4 0031 1 ! FACILITY: Pascal Language Support 3 
$ 2 $038 1! 3 
3; ss 0033 1 ! ABSTRACT: 3 
3; 0034 1! 3 
ae 0035 1! This module contains procedures which write an H_floating 3 
: “9 B86 : } in fixed-point notation to a textfile or string. : 
: 35 sit : ENVIRONMENT: User mode - AST reentrant | : 
i 40 0040 1 | AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 | 2 
; 4¢ 0042 1 | MODIFIED BY: | : 
; § 0045 1! 3 
; | 644 0044 1 ! 1-001 - Original. SBL 1-April-1981 3 
: «645 0045 1 | 1-002 - Make total-width a lLongword. SBL 30-June-1982 F 
:; 646 0046 1 !-- 3 
3s 67 0047 1 3 


PASSURITE REALE Write an H_floating in F format 1s 30-19 
1- ) 14-Se 


307-1 8bs 93:83:88 YAM AT Ott eS eRe Mala 6S2.1 Page 35 


| 
2 eclarations - 
5 4 ‘3 ! SSBTTL Declarations’ | 
3 } 24 : PROLOGUE DEFINITIONS: | 
3 ! 
3 52 1 
; 2 03 ' REQUIRE "RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
3 6 118 1! 
é 7 11 1 ! TABLE OF CONTENTS: 
; 8 120 1! 
3; WF 0121 1 
; @& 4 ¢ 1 FORWARD ROUTINE 
H 61 1 1 PASSWRITE_REALF_H: NOVALUE ' Write to textfile 
; 6 01 4 PASSWRITEV_REALF_H: NOVALUE; i Write to string 
; 664 4 § 1! 
3 65 1 1 ! MACROS: 
; & 0128 1! 
. GF 0129 1! NONE 
; @& 0130 1! 
3 69 ate 1 ! EQUATED SYMBOLS: 
3 70 01 ¢ 1! 
3 71 01 1! NONE 
; 7 0134 1! 
cS) FF 0135 1 ! FIELDS: 
: 76 0136 1! 
3 75 0137 1! NONE 
4; ao 0138 #1! 
; 77 0139 1! 
ma 0140 1! 
: 79 0141 1! NONE 
; 80 0142 1! 
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i OWN STORAGE: 


9 
Steet + AX-11 Oi legate 


PASSWRITE_REALF Write an H_ floating in F format 1 984 02:25 
1002 e : floating in F forma 12286871382 95:83: 8 PASRTL. P 


PASSWRITE_REALF_H = Write H 


; ¢ 143 1 XZSBITL "PASSWRITE_REALF_H = Write H_floating in F format’ 

3 144 1 GLOBAL ROUTINE pase x 

; 4 145 4 FV: R SSPFV_FILE VARIABLE, ! File variable 

; 5 158 1 VALUE_0,VALUE_1,VALUE_2,VALUE_3, ' Value to write 

; 86 147 1 TOTAL “WIDTH: SIGNED, i Total field width 
: 7 13 1 FRAC_BIGITS: SIGNED, ! Digits in fraction 
3 ss 149 1 RROR ! Error unwind address 
; 9 150 1 ): NOVALUE = 

; Ww 151 1 

; (691 1 ¢ 1 !e4 

; 4 137 : : FUNCTIONAL DESCRIPTION: 

; 94 138 1! This procedure writes an H_floating value in fixed-point notation 

; 32 8129 : to the specified textfile. 

; 24 0138 ! CALLING SEQUENCE: 

; 99 0160 1! CALL PASSWRITE_REALF_H (PFV.mr.r, VALUE.rh.v TOTAL_WIDTH.rl.v 

; 100 161 ; , FRAC_DIGITS.rl.v €, ERROR. ja.rJJ) 

; 106 pies 1 ! FORMAL PARAMETERS: 

s 10 0164 1! 

: 104 0165 1! PFV - The Pascal File Variable (PFV) passed by reference. 
s + '¢4 B1e8 : } The structure of the PFV is defined in PASPFV.REQ. 
3 107 0168 1! VALUE - The H_ floating value to write, by immediate value. 
3 138 8198 ; } Note that this takes up four argument List positions. 
3 119 a0) ! TOTAL_WIDTH - Total field width. 

j Ng o178 : FRAC_DIGITS - Number of digits in fraction. 

3 A33 gie2 | : ERROR - Optional. Address to unwind to if an error occurs. 
3 6116 0177 1°! IMPLICIT INPUTS: 

3: «117 0178 1! 

: #118 0179 1! NONE 

: 119 0180 1! 

: 120 0181 1 =! IMPLICIT OUTPUTS: 

s Yar 8156 2 

; \$¢ 0183 1! NONE 

... 0184 1! 

: 124 0185 1 ' ROUTINE VALUE: 

3 \$3 b156 1! 

: 126 1 1! NONE 

: 127 0188 1! 

: 128 0189 1°! SIDE EFFECTS: 

: i 0190 1! : cd 

3 130 ate ! : If the file is the standard file OUTPUT, it is implicitly opened. 

3 136 p98 1 ! SIGNALLED ERROKS: 

s 13 194 1! 

3 Hf 199 7 7 LINTOOLON - Line too Long > ‘ We 

: : 5 136 ' } NEGWIDDIG - negative Width or Digits specification is not allowed 

: 139 B98 1 !-- 

; «138 0199 1 


VG 
WR 


0-74 
tRen 62:1 
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PASSWRITE_REALF Write an H floating in F format 16-Sep-1984 02:25:24 AX-11 Bliss-32 V4.0-74 P 4 
1-002 PASSWRITE_REALF _H : Write H floating in F forma 10-30-1984 93:83:68 PASRTL. RCIPASURIRFH 82:1 = (3) 


Tie 


LTIN 

ACTUALCOUNT; 
LOCAL 

FCB: REF SPASSFCB_CONTROL_BLOCK, ! File control block 

FIELD WIDTH: SIGNED, ! Minimum/actual width 

REMAINING_WIDTH ! Maximum width 

PFV_ADDR: “VOLATILE, i 

UNWIND_ACT: VOLATILE, ! 

ERROR_ADDR: VOLATILE; : 
ENABLE 

PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


1+ 

Get ERROR parameter, if present. 

od - tateaataaaael () GEQU 8 
ERROR_ADDR = .ERROR; ! Set unwind address 

PFV_ADDR = PFV CPFVSR_PFVJ; ! Set PFV address 


WR O OONAOUSWN —OVOONOUES WN O”O 


14 
Validate PFV and get PFV. 


PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 
set unwind action to unlock file. 
UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 

bo common initialization. 
PASSSINIT_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCBI; FCB); 


¢ 
: Get minimum and maximum widths. Check for invalid width or digits. 


BEEF PAWN INMIWIUIRRINININININININID 2 2 OO OS SS COOCOOCSOO 
FUN CO OONAUE WN S$ OOONAUE WN OODONAUE AR OO ONAUS 


POPOPOPOPININIAINIAIPONINININPIPIPIPINIPYNIPONINPONPPoNgPoPony 


eee 


QYilwnr—OOOnour 


DTH = .TOTAL_WIDTH; 
LD_WIDTH LSS~0) OR’ (.FRAC_DIGITS LSS 0) 


I =. 

E IDT 

S$IO_ERROR (PAS$_NEGWIDDIG,0); 

NG_WIDTH = .FCB TF CBSA_RECORD. END) - .FCB CFCBSA_RECORD_CUR); 
'¢ 

: Do the conversion. If it fails, signal an error. 


wr Ta Te Pe PETE TE TELL ILITE IERIE EEE IETS Ce TECSISCIOCCSTOOSTOTECLICTLOLILILILTLILLIL TEL 
ee me ee em ee ee me a ce ee ee De ee em 8 ed nd ed dd ed nd ed = od = od 


DO VAN NNINNIO AA AAAAAAANAAAANANAAAR RRR RPP RRR 
SLOSLSSSSSSRASESSSISARAN-SSSISAF S 
SOSSDOCOCOOOO OOO OOOO OOO OOOO OOOO OOO OOOO COCO OC OOO OC COOCO 


Porononofpofponony 
RIPDPIPIPOPIPILAPIPONYIDINPININIPONPIPYNPIPUNIPUNIPYUPINPINY 
2a 
i eal! 
= S05 
- 
eo an =) 
20a" 
—> —— 


DPA & 


Enable argument | 
Enable argument 
Enable argument 
| 
} 


PASSWRITE_REALF yrite an H_floating in F format 18-50 Sep-1984 AX-11 B -32 V4.0-74 
ati PASSWRITE WREALT A : Write H_ floating in F forma 1 eet yi 95: $3; 83 PASRTLeS Rete ASuRIRFH BS251 _— (33 

3 3 7 

: 138 34 IF NOT PASSCVT_H_T vee 0 ' Value ? aati 

: 198 FCB CFCBSA A_RECORD_ cur], Peotlas 

; 6199 60 FIELD WIDTH, ! Minimun/a¢ tual width 

; 200 61 »REMAINING WIDTH, ' Maximum w 

; 9} 0 $6 omen -FRAC_DIGITS) ! Fraction digits 

; 08 p ee SPASSIO_ERROR (PAS$_LINTOOLON,1,(.FIELD_WIDTH-.FRAC_DIGITS)); 

: 205 66 '+ 

; Be 67 i Advance buffer pointer. 

: $08 4 a 

; 2 8 19 FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + «FIELD WIDTH; 

: 211 027 \¢ 

; iM 0 ie i Call WRITE epilogue routine to move the Last character written to the 

: ap 8 a : _user's buffer and to unlock the file variable. 

: 215 027 

; $18 0977 § metene wtie (PFV CPFVSR_PFV], FCB CFCBSR_FCB)); 

: 218 $578 é RETURN; 

: 219 0280 

; 220 0281 1 END; ! End of routine PASS$SWRITE_REALF_H 


TITLE PASSWRITE_REALF_H nee an H_ floating in F form 
a 

IDENT \1-002\ 

~-EXTRN PASSWRITE_REALF_H 

-EXTRN PASSURITEY it H 


“EXTRN PASSSIN 

“EXTRN PAS SSSIGNAL, PASSK_NEGWIDDIG 
“EXT ASS PAS$K~LINTOOLON 
"EXTRN PASSS$END Noni TE 

.PSECT _PASSCODE,NOWRT, SHR, PIC.2 


01FC 00000 -ENTRY PASSWRITE_REALF_H, Save R2,R3,R4,R5,R6,R7,- ; 0144 


58 000000006 00 9 00002 MOV PASSSSIGNAL , RB : 
SE 10 ¢ 90009 SUBL 6, SP : 
04 AE 7C 0000C CLRO ERROR ADDR : 0200 
OC AE D4 O000F CLRL V_ADDR : 
6D 0070 «CF DE O012 MOVAL 5$,7(FP) : 
08 6¢ 91 0001 CMPB AP), #8 + 0220 
5 1F QOOIA BLSSU : 
04 AE 20 AC DO 0001C¢ MOVL ERROR, ERROR_ADDR > 0222 
56 4 AC dO 6 021 1$: MOVL ‘ > 0224 
0c 56 DO 00025 MOVL  R6, PFV_ADDR : 
000000006 00 16 6 9 JSB PASSSVACIDATE_PFV : 0 30 
1 é6 F MOVL #1, UNWIND AC 3 8 6 
000000006 00 16 00033 JSB PASSSINIT_ORITE > 0242 


221 0282 1 
s dee 0283 1 !<BLF/PAGE> 


m9 

PASSWRITE_REALF Write an H catin for 16-Sep-1984 5:24 AX-11 Bliss-32 V4.0-7 Page | 
1-002 PASSWRITE HREAL F_H et urite H rttoating in F forma 122800= 138% 93: $3; 68 PASRTL.SRCJPASWRIRFH. 5 231 " (35 

6E 18 D 9 MOVL TOTAL_WIDTH, FIELD_WIDTH 3 0248 ; 

Os 08 O30 BLSS 2 Fa : ert ; 

1c =A b F TSTL FRAC_DIGITS : $ 

OA 1 Oee BGEQ 3$ 3 3 

E bs 44 2%: CLRL -(SP) 3 0251 : 

7 00G 8F 9A 00046 MOVZBL #PASS$K_NEGWIDDIG, -(SP) : $ 

6 02 FB Bp6A CALLS #2, PASSS$SIGNAL : : 

50 FO A? EC A7 C3 O004E 38: SUBL3 -20(FCB), -16(FCB), REMAINING WIDTH 3 0252 : 

iC AC DD 00054 PUSHL FRAC_DIGITS + 0262 ; 

50 DD 00057 PUSHL REMAINING WIDT 3 0261 3 

08 AE OF 9039 PUSHAB FAELD WIDTH : 0g38 : 

FC A? DD 0005c PUSHL -20(FCB) : 0259 3 

8 AC 9F OO0SF us VALUE _0 3; 0258 ; 

00000000G 00 5 FB 483 CALLS #5, PASS$CVT_H_T : 3 

OF 0 Eg 006 BLBS RO, 4$ : : 

7E 6E 1¢ AC C3 0006C SUBL3 FRAC DIGITS, FIELD_WIDTH, -(SP) : 0264 3 

01 dD 00071 PUSHL #1 : $ 

7E 00G 8F 9A 60073 MOVZBL #PAS$K_LINTUOLON, -(SP) : : 

68 03 FB 00077 CALLS #3, PASSSSIGNAL : 3 

04 Q007A RET : 3 

EC A7 6— CO 0007B 4$ ADDL2 FIELD_WIDTH, -20(FCB) : 0270 3 

000000006 90 16 0007F JSB PASSSEND_WRITE : 0277 ; 

04 00085 RET 3; 0281 3 

0000 00086 5$ «WORD Save nothing ; 0200 3 

50 08 AC DO 00088 MOVL 8(AP), RO : F 

50 04 ad 00 0008C MOVL 4(RO), RO : : 

F4 AO 9F 00090 PUSHAB ERROR_ADDR : 3 

F8 AO 9F 00093 PUSHAB UNWIND_A’T 3 3 

FC AO 9F 00096 PUSHAB PFV_ADE 3 3 

03 OD 9b PUSHL #3 3 $ 

5E DD 00098 PUSHL SP 3 3 

7E 04 AC 7D 0009D MOVa 4(AP), =(SP) : 3 

000000006 00 03 FB OOOA1 CALLS #3, PAS$$IO_HANDLER : 3 

04 OOOAR RET : ; 

; Routine Size: 169 bytes, Routine Base: _PASSCODE + 0000 : 


——— Rey 
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PASSWRITE_REALF Write an H_floating in F format 16-Sep-1984 02:25:24 AX=-11 Bliss-32 V4.0-74 Pa 7 PA 
1-002 PASSURITEVREALE Ho= Urite Httoating in F form iecsepe19a4 49:52:08  PASRIL SRETPASUATAEH 82:1 9 a) 1- 
4 ZSBTTL "PASSWRITEV_REALF_H = Write H_floating in F format to string’ 
GLOBAL ROUTINE PASSWRITEQ_REALF_H < 


ORD, Maximum Length of string 
REF VECTOR C, WORD], 


NOU 


: ' 

STRING_LINE : ' String to write to 
VALUEO;VALUE1, VALUE2, VALUES, i Value to write 
TOTAL_WIDTH: §1 : i Total field width 
FRAC DIGITS: SIGNED, i Digits in fraction 
ERROR ' Error unwind address 


) : NOVALUE = 
144 


| FUNCTIONAL DESCRIPTION: 


This procedure writes an H floating in fixed-point format | 
to the specified string. 


CALLING SEQUENCE: 


CALL PASSWRITEV_REALF_H (MAX_LENGTH.rw.v, STRING_LINE.wvt.r 
VALUE.rh.v, TOTAL_QIDTH.rl.v, FRAC_DIGITS.rl.v L, ERROR.j.rJ) 


FORMAL PARAMETERS: 


er et et OH oo SDOOO0OO000000MMO 


QOMMMVIVIUNIUIVIUN ES BB BEBE LEP 
DODONAUES WN $0 OONOAUES WN "OO ONOUEWA 0 OONOUE WR —0O0@ 


MAX LENGTH - The maximum ‘Length of STRING_LINE. 

STRING_LINE - A varying string to which the output will be appended. 7 

VALUE - The value to write. Note that the H_floating value 
is passed by immediate value in four argument List 
positions. 

TOTAL_WIDTH - The width of the field to write. 

FRAC_DIGITS - The number of fraction digits. 

ERROR - Optional. If specified, the address to unwind to 


in case of an error. 


WN 9 ODONAOVE WN O OONOAUE WN 0 OONOUEWN—ODOONOUS 


IAAP RPOPONOPONONPONOPOPYD Cooooo oOo wooovono 


POPIPIPIPIPINSINIPIPIPIADININIPYINDIPYIDINININININININININININININININININININININIPON Pony 


1A. AAA NAA AANA AAAI NAINA NINA AWN AANA AAI inopnoru 
ee ee ae ae ae ee ee ee a ee ee ee ee ee ee ee ee ee ed ad ed 


SOOOSOOSOCOOOOSOCOOOOCOCOSOCOOCOSOSOSOSSOSGSOSSSSSOSCE BDOCCCOCSCOOCOOCOOCOOOOOOOOOo 


6 IMPLICIT INPUTS: 
64 NONE 
ee IMPLICIT OUTPUTS: | 
68 NONE 
69 
20 Q ROUTINE VALUE: 
? 3 NONE | 
7 a 
34 SIDE EFFECTS: | 
3 NONE | 
z | 
? 38 SIGNALLED ERRORS: | 
$ 340 See PAS$WRITE_REALF_H 


PASSWRITE_REALF 
1-802 


O Co COCO CD CD CD CDCDCD 
OOONOUFS WR 


WAAPOROPUPUIRINOPONONONY 2 Ss OO 
MOC OOBNOUVUESWN $0 OONOUSWN OO 


WANA AAA NAA ANAM AAAI 


Ww 


F format 
rite H_ floating in F form 


BEGIN 


CAL 
PFV: SPASSPFV_FIL 


a 5 pl 
ARG_LIST: V CTO ’ 


J E LONG 
PFV-ADDR: VOLATIL 
UNWIND_ACT: VOLAT 


ERROR_ADDR: VOLA 


BUILTIN 
ACTUALCOUNT; 


ENAB 


4 

Get ERROR parameter, if present. 

IF ACTUALCOUNT () GEQU 9 
ERROR_ADDR = .ERROR; 

PFV_ADDR = PFV CPFVS$R_PFV]; 


ee 


1+ 
Set up ARG_LIST. 


ARG_LIST (0) = 7; 
ARG-LIST [1] = PFV CPFVSR_PFV); 
ARG_LIST @] = .VALUEO; 
ARG_LIST [3] = .VALUE1: i 
ARG-LIST [4] = .VALUE@: 
ARG-LIST [5] = .VALUE3: 
ARG-LIST (6) = .TOTAL_WIDTH; i 
ARG_LIST C7) = .FRAC_BIGITS: ! 


14 
' Call PAS$$DO_WRITEV to do the work, 
PASSWRITE_REALF_H to call. 


PASS$S$DO_WRITEV (PFV CPFVSR_PFVI, MAX. 


PASSWRITE_REALF 
RETURN; 


END; 


10 
1B-Sep-1984 02:25:24 YAN=I1 BLigg=S2 v4. 0-742 


LE 
PAS$SIO_HANDLER (PFV_ADDR, UNWIND_ 


i PFV address” 
' Value to write 


Pascal File Variable 
Argument List 

Enable argument 
Enable argument 
Enable argument 


Count of arguments 


ACT, ERROR_ADDR); 


Set unwind address 
Set PFV address 


Seven arguments 
ress 


i Field width 
! Digits in fraction 


giving it the address of 


LENGTH, STRING_LINE (OJ, ARG_LIST, 


! End of routine PASSWRITEV_REALF_H 


.EXTRN PASS$S$DO_WRITEV 


! Enable error handler 


10 
eA SWRITE_REALF Write an H_floa zis in F for ay 19 5:24 AX-11 Bliss=-32 V4.0-7 Page 9 
-002 PASSURI TEV V>REAL Yi Write 1 mttoating in F form t-Sep- 138 95: g3 8 PASRTL.SRCJPASWRIRFH. 8 2:1 ’ (4) 
007¢ 0000 -ENTRY PASSWRITEV_REALF_H, Save R2,R3,R4,R5,R6 ; 0285 
SE 38 5 09 SUBL2  # : : 
E D4 CLRL ERROR_ADDR 0344 
04 AE 7C 99 CLRO UNWIND ACT 
6D 0043 «CF bE 00 MOVAL 
09 6¢ 1 00 CMPB cab) "9 0363 
4 iF 0001 BLSSU i$ 
6E 34 AC po 001 OVL ERROR, ERROR_ADDR 0365 
08 AE C AE ; 18 1$ MOVAB FV, PFV_A 0367 
OC AE 07 OD 2 OVL #7, ARG_CIS 0373 
10 AE 3¢ AE 9E 6 MOVAB PFV, ARG_LI 0374 
1. AE c A 8 va VALUE > ARG_LIST + Bate 
« « 14 AC 7D 000 MOVa E2, ARG-LIST+16 377 
24 AE 1¢ AC 7D 000 mova YOrA L_WIDTH; ARG, G,tlsto2s 0379 
5 FFIE CF 9E 000 MOVAB PASSWRITE -REAL , RS 0387 
54 OC AE 9E 0003 ARG. ST, 
56 26 AE 9E 0003 R 
53 8 AC 00 004 VL CTRING LINE, R3 
52 04 AC 3C 0004 MOVZWL MAX_LENGTH, R2 
000000006 00 16 0004 SB PASSSDO_WRITEV 
04 0005 RET 
0000 00051 2$ WORD Save nothing 0344 
50 08 ac 00 0005 MOVL (AP), RO 
50 04 Ad Db0 0005 MOVL  4(RO), RO 
C4 AO 9F 0005 PUSHAB ERROR ADDR 
C8 AO 9F 0005 PUSHAB UNWIND ACT 
CC AO SF 0006 PUSHAB PFV_ADBR 
03 DD 0006 PUSHL #3 ~ 
5E DD 0006 PUSHL SP 
7E 04 AC 7D 0006 VQ. 4(AP), =(SP) 
000000006 00 03 FB 9006 CALLS #3, PASS$10_ HANDLER 


; Routine Size: 116 bytes, Routine Base: _PASSCODE + O0A9 


0393 1 
0394 1 !<BLF/PAGE> 


WOODARD NW OPAMP NODA COL SNNNIO —— 
Doz . DC BBzz z2zzzz 
m>r>o ooo o 
<< 
PP 
@o 
2> 
Sete Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
Oo 
tes 
Oo 
nm 


D 10 
PA SWRITE_REALF Write an H floating in F format 16-Sep-1984 AX=11 Bliss-32 V4.0-74 P f 
2 PAS$WRITEV-REALF i Write H.floating in F form 14- Sep- - 382 98: §3 63 PASRTL SRE PASWRIRFH. $251 ae J 


-oO 


; 3 0396 ! END ! End of module PASSWRITE_REALF_H | 
: 338 97 0 ELUDOM | 
PSECT SUMMARY | 
Name Bytes Attributes 
PASSCODE 285 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
oc 
me 
-$255$DUA28: a SSL IBISTARLET -L32;1 9776 0 0 581 00:01.0 
_$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 97 22 33 00:00.4 


COMMAND QUALIFIERS 
PL ESE/ERECR OEE SELD PNET IAL OPT IRI LED /MOTRACE/L ESL. 15S cPASUR IRF N/E ISORIS :PASUR IEE MSRC$:PASWRIRFH/UPDATE=(ENHS$:PASWRIRFH 


0 data bytes 


C 
. 8 00 
; Elapsed Time: 00: 
; Lines/CPU Min: 3 
; Lexemes/CPU-Min: 137 
: ponecy Used: 83 p page 
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